home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / INSERLOS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-10-02  |  939 b   |  40 lines
  1. 10  'INSERLOS - Insertion Loss - 11 JAN 96 rev. 01 OCT 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  COMMON EX$
  4. 40  CLS
  5. 50  COLOR 7,0,1
  6. 60  U$="##,###.#"
  7. 70  K=0.43429  'conversion factor for base 10 logs
  8. 80  '
  9. 90  COLOR 15,2
  10. 100  PRINT " INSERTION LOSS of TUNED CIRCUITS";
  11. 110  PRINT TAB(57);"by George Murphy VE3ERP ";
  12. 120  COLOR 1,0:PRINT STRING$(80,223);
  13. 130  COLOR 7,0
  14. 140  '
  15. 150  COLOR 0,7:LOCATE CSRLIN,9
  16. 160  PRINT " Press 1 to continue or 0 to EXIT....."
  17. 170  COLOR 7,0
  18. 180  Z$=INKEY$:IF Z$=""THEN 180
  19. 190  IF Z$="0"THEN CLS:CHAIN"tunecct"
  20. 200  IF Z$="1"THEN 220
  21. 210  GOTO 180
  22. 220  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  23. 230  GOTO 300
  24. 240  '
  25. 250  '.....format input line
  26. 260  LOCATE CSRLIN-1:PRINT SPC(7);
  27. 270  LOCATE CSRLIN,47:PRINT STRING$(7,".");USING U$;ZZ;
  28. 280  RETURN
  29. 290  '
  30. 300  '.....data input
  31. 310  INPUT " ENTER: Unloaded Q...................................";QU
  32. 320  ZZ=QU:GOSUB 250:PRINT ""
  33. 330  INPUT " ENTER: Loaded Q.....................................";QD
  34. 340  ZZ=QD:GOSUB 250:PRINT ""
  35. 350  IL=20*LOG(1/(1-QD/QU))*K
  36. 360  PRINT "        Insertion Loss...............................";USING U$;IL;
  37. 370  PRINT " dB"
  38. 380  PRINT
  39. 390  GOTO 150
  40.